#!/usr/bin/perl

use PerLISP::Cons;
use PerLISP::LispOps;
use PerLISP::Eval;


my $eval = _cons( 'EQ', _cons( _cons( 'CAR', _cons( _cons( 'X', _cons( 'Y', undef)), undef))), _cons( 'X', undef));

#$eval = _cons( 'CAR', _cons( _cons( 'CDR', _cons( _cons( 'X', _cons( 'Y', undef)), undef))));
#$eval = _cons( 'CAR', _cons( _cons( 'X', _cons( 'Y', undef)), undef ));

$eval = _cons( 'LIST', _cons( 'B', _cons( 'C', _cons( 'D', undef))));

print "EVAL: ", _dump( $eval ), "\n";

my $var = _evalquote( _car($eval), _cdr( $eval));

print " => ", _dump( $var ), "\n";


